function svdSave(k, repositorioNombre)
	basePath = strcat("./", repositorioNombre, "/");
	
	load ( strcat(basePath, "PMatrix.dat") );
	P = P';
	% Paso la matriz de sparse a full porque la funcion svd no anda
	% bien con sparse matrix
	
	opts.tol = 10^(-20);
	opts.maxit = 500;
	
	[U, S, V] = svds(P, k, 'L');
	
	%if (k < size(U, 2)) U = U(:, 1:k); end;
	%if (k < size(V, 2)) V = V(:, 1:k); end;
	%if (k < size(S, 1)) S = S(1:k, 1:k); end;
	
	save ("-binary", strcat(basePath, "UMatrix.dat"), "U");
	save ("-binary", strcat(basePath, "SMatrix.dat"), "S");
	save ("-binary", strcat(basePath, "VMatrix.dat"), "V");
end;
